home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_179_Format.bin < prev    next >
Text File  |  1995-11-23  |  4KB  |  143 lines
  1. ItemType: WIND
  2. Rect: 257,387,609,661
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Format
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬if objValue="Open" then ┬  wsSet wdID,"TypeChoose","SelectionText", "Import balances"┬  restoreFormat("import balances")┬end if┬--end windowEvent
  9. Params: i0_TopLeft
  10.  
  11. ItemType: PUSH
  12. Rect: 268,185,340,205
  13. Name: Done
  14. DefaultItem: TRUE
  15. AutoClose: TRUE
  16.  
  17. ItemType: PUSH
  18. Rect: 168,185,248,205
  19. Visible: FALSE
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: TEXT
  25. Rect: 0,6,144,23
  26. TextFont: Geneva
  27. TextSize: 10
  28. AutoSize: FALSE
  29. Name: Title
  30. TextStyle: Bold
  31. TextAlign: Right
  32. Text: Choose type to format:
  33.  
  34. ItemType: TEXT
  35. Rect: 33,40,244,56
  36. TextFont: Geneva
  37. TextSize: 12
  38. Name: label1
  39. TextAlign: Right
  40. Text: Detail name & value separated by
  41.  
  42. ItemType: POP
  43. Rect: 252,103,345,120
  44. Name: recordpop
  45. Text: return┬other╔
  46. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"recordpop","SelectionText")┬if it="Other╔" then┬  put tinyAsk("Other detail separator:") into ss┬  if (ss¡"Ñ") and (ss is not empty) then┬    wsSet wdID,"recordpop","SelectionText",ss┬  else┬    wsSet wdID,"recordpop","SelectionText","tab"┬  end if┬end if┬exampleSave┬--end mouseUp┬
  47.  
  48. ItemType: POP
  49. Rect: 252,40,345,57
  50. Name: itempop
  51. Text: tab┬comma┬word┬other╔
  52. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"itempop","SelectionText")┬if it="Other╔" then┬  put tinyAsk("Other item separator:") into ss┬  if (ss¡"Ñ") and (ss is not empty) then┬    wsSet wdID,"itempop","SelectionText",ss┬  else┬    wsSet wdID,"itempop","SelectionText","tab"┬  end if┬end if┬exampleSave┬--end mouseUp
  53.  
  54. ItemType: LBL
  55. Rect: 16,137,79,153
  56. Text: Example:
  57.  
  58. ItemType: TEXT
  59. Rect: 80,140,347,171
  60. TextFont: Geneva
  61. TextSize: 10
  62. AutoSize: FALSE
  63. Name: example
  64. Text: <Detail1_name><tab><value>┬<Detail2_name><tab><value>
  65.  
  66. ItemType: TEXT
  67. Rect: 51,103,244,119
  68. TextFont: Geneva
  69. TextSize: 12
  70. Name: label2
  71. TextAlign: Right
  72. Text: Different details separated by
  73.  
  74. ItemType: TEXT
  75. Rect: 66,61,176,74
  76. TextFont: Geneva
  77. TextSize: 10
  78. Name: label3
  79. TextAlign: Right
  80. Text: Detail name is item #
  81.  
  82. ItemType: POP
  83. Rect: 179,61,228,76
  84. TextFont: Geneva
  85. TextSize: 10
  86. Name: nItemPop
  87. Text: 1┬2┬3┬4┬5
  88. Script: exampleSave
  89.  
  90. ItemType: TEXT
  91. Rect: 97,79,176,92
  92. TextFont: Geneva
  93. TextSize: 10
  94. Name: label4
  95. TextAlign: Right
  96. Text: Value is item #
  97.  
  98. ItemType: POP
  99. Rect: 179,79,228,94
  100. TextFont: Geneva
  101. TextSize: 10
  102. Name: vItemPop
  103. Text: 1┬2┬3┬4┬5
  104. Script: exampleSave
  105.  
  106. ItemType: LBL
  107. Rect: 257,59,333,71
  108. TextFont: Geneva
  109. TextSize: 9
  110. Text: (item delimiter)
  111.  
  112. ItemType: LBL
  113. Rect: 255,122,341,134
  114. TextFont: Geneva
  115. TextSize: 9
  116. Text: (record delimiter)
  117.  
  118. ItemType: TEXT
  119. Rect: 10,218,346,274
  120. TextFont: Geneva
  121. TextSize: 10
  122. AutoSize: FALSE
  123. Name: Help
  124. Text: Most text files for importing and exporting are in the default format of the name and value separated by a tab (the name is the first item and the value the second), with different values on separate lines. You can choose a different arrangement from the pop-up menus.
  125.  
  126. ItemType: PUSH
  127. Rect: 160,185,240,205
  128. Name: Default
  129. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬wsSet wdID,"itempop","SelectionText", "tab"┬wsSet wdID,"recordpop","SelectionText", "return"┬wsSet wdID,"nItemPop","SelectionText", "1"┬wsSet wdID,"vItemPop","SelectionText", "2"┬exampleSave┬--end mouseUp
  130.  
  131. ItemType: POP
  132. Rect: 146,5,346,21
  133. TextFont: Geneva
  134. TextSize: 10
  135. AutoSize: FALSE
  136. Name: TypeChoose
  137. Text: Import balances┬Import stock prices┬Export balances┬Export Report, Net Worth┬Export stock prices
  138. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬set cursor to watch┬get wsGet(wdID,"TypeChoose","SelectionText")┬restoreFormat(it)┬--end mouseUp
  139.  
  140. ItemType: LINE
  141. Rect: 5,28,345,30
  142. Pen: Gray
  143. PenSize: 1,2